## [1] "After population data extraction, 2 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam"

Country Rankings

Totals

Top 10 Countries - Total Deaths
Country_Region Deaths
United States 220119
Brazil 154176
India 115197
Mexico 86338
United Kingdom 43726
Italy 36616
Spain 33992
Peru 33759
France 33374
Iran 30712
Colombia 29102
Argentina 26716
Russia 24205
South Africa 18492
Chile 13676
Indonesia 12617
Ecuador 12395
Belgium 10443
Iraq 10317
Germany 9842
Top 10 Countries - Total Weighted Deaths
Country_Region Weighted_Deaths
San Marino 1e-03
Peru 1e-03
Belgium 1e-03
Andorra 1e-03
Bolivia 1e-03
Brazil 1e-03
Spain 1e-03
Ecuador 1e-03
Chile 1e-03
Mexico 1e-03
United States 1e-03
United Kingdom 1e-03
Italy 1e-03
Moldova 1e-03
Panama 1e-03
Argentina 1e-03
Colombia 1e-03
Sweden 1e-03
France 0e+00
North Macedonia 0e+00
Top 10 Countries - Total Weighted Confirmed
Country_Region Weighted_Confirmed
San Marino 0.023
Peru 0.027
Belgium 0.020
Andorra 0.047
Bolivia 0.012
Brazil 0.025
Spain 0.021
Ecuador 0.009
Chile 0.025
Mexico 0.007
United States 0.025
United Kingdom 0.011
Italy 0.007
Moldova 0.025
Panama 0.029
Argentina 0.022
Colombia 0.019
Sweden 0.010
France 0.014
North Macedonia 0.011

Increases

Top 10 Countries - Increase Weighted Deaths
Country_Region Increase_Weighted_Deaths
Andorra 0
Argentina 0
Czech Republic 0
Montenegro 0
Moldova 0
Israel 0
North Macedonia 0
Tunisia 0
France 0
Spain 0
Costa Rica 0
Iran 0
Bosnia and Herzegovina 0
Armenia 0
Jordan 0
Luxembourg 0
Hungary 0
Bulgaria 0
Romania 0
Oman 0
Top 10 Countries - Increase Weighted Confirmed
Country_Region Increase_Weighted_Confirmed
Andorra 3e-03
France 1e-03
Switzerland 1e-03
Spain 1e-03
Czech Republic 1e-03
Belgium 1e-03
Netherlands 0e+00
Georgia 0e+00
Costa Rica 0e+00
Argentina 0e+00
United Kingdom 0e+00
Armenia 0e+00
Slovenia 0e+00
Montenegro 0e+00
Bahrain 0e+00
Malta 0e+00
San Marino 0e+00
Ireland 0e+00
Poland 0e+00
Luxembourg 0e+00

Plots

Increases

CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
  JHplot_CountryLevel(CountryList,"Increase_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
  JHplot_CountryLevel(CountryList,"Increase_Weighted_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
  JHplot_CountryLevel(CountryList,"Increase_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
  JHplot_CountryLevel(CountryList,"Increase_Weighted_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p